home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Atari Compendium
/
The Atari Compendium (Toad Computers) (1994).iso
/
files
/
prgtools
/
programm.ing
/
gfa
/
procdure.lzh
/
8WAY_STK.LST
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
File List
|
1995-01-29
|
152 b
|
7 lines
PROCEDURE 8way_stick(VAR x%,y%)
LOCAL xa%
xa%=STICK(1)
x%=x%+((xa% AND 4)=4)-((xa% AND 8)=8)
y%=y%+((xa% AND 1)=1)-((xa% AND 2)=2)
RETURN